image1 = ->
  do cs
  speed 50
  pen gray, 5
  fd 100
  rt 90
  fd 100
  rt 90
  fd 100
  rt 90
  fd 100
  rt 90
  fd 100
  lt 90
  
  pen red, 5
  fd 25
  rt 135
  fd 110
  rt 90
  fd 110
  rt 135
  fd 25
  fd 108
  
  lt 90
  pen gray, 1
  fd 100
  rt 90
  
  pen green, 5
  bk 200
  fd 300
  bk 20
  rt 90
  
  pen brown, 5
  fd 50
  pen green, 5
  lt 135
  fd 10
  lt 135
  fd 20
  lt 135
  fd 10
  
  lt 90
  fd 30
  lt 135
  fd 30
  lt 135
  fd 20
  lt 135
  fd 20
  
  pen brown, 5
  fd 50
  rt 90
  rt 180
  # Reset position
  pen null
  fd 80
  lt 90
  fd 20

image2 = ->
  do cs
  speed 100

  pen brown, 10
  fd 50
  
  pen gray, 10
  lt 90
  fd 50
  rt 90
  fd 50
  rt 90
  fd 100
  rt 90
  fd 50
  rt 90
  fd 50
  rt 180
  fd 25
  lt 90
  fd 50
  lt 45
  
  pen black, 5
  fd 50
  
  pen red, 5
  lt 45
  fd 10
  lt 90
  fd 10
  lt 90
  fd 10
  lt 90
  fd 10
  # Reset position
  pen null
  rt 180
  fd 130
  rt 180

image3 = ->
  speed 100
  do cs

  pen brown, 10
  fd 100
  bk 20
  lt 35
  fd 50
  bk 50
  rt 80
  fd 80
  rt 90
  
  pen green, 10
  fd 50
  lt 90
  fd 50
  lt 90
  fd 100
  lt 90
  fd 50
  rt 90
  fd 50
  lt 90
  fd 50
  rt 90
  fd 50
  lt 90
  fd 100
  lt 90
  fd 50
  lt 90
  fd 50
  rt 90
  fd 50
  lt 90
  fd 50
  rt 90
  fd 50
  lt 90
  fd 50
  # Reset position
  pen null
  lt 135
  fd 50
  lt 90
  fd 130
  lt 180


location1 = ->
  do image1
  write """
  You are standing outside of a house 
  in the middle of a clearing.
  <br>
  What do you want to do?
  """
  menu
    "Open mailbox": location2
    "Enter forest": location3

location2 = ->
  do image2
  write """
  In the mailbox is a pamphlet. It reads:
  ''Welcome to Zork!''
  <br><br>
  Wait a minute... this isn't Zork!!
  """
  
  menu
    "Go back": location1
  
location3 = ->
  do image3
  write """
  It is dark in the forest, you'll probably
  get lost!
  """
  
  menu
    "Keep moving forward": location3
    "Go backward": location3

do location1